COUNT TO CNT
DECLARE FILD[CNT]
DECLARE DOCN[CNT]
CR=0
GO TOP
DO WHILE .NOT. EOF()
   CR=CR+1
   FILD[CR]=DOC_ALIAS
   DOCN[CR]=DOC_ALIAS
   SKIP
ENDDO
set colo to w+/RB,gr+/r
@ 15,63 clea to 22,78
@ 15,63 to 22,78 double
pilih=achoice(16,64,21,77,FILD)
IF LASTKEY()=13
   NMDOCT=DOCN[PILIH]
   FILD=FILD[PILIH]
ELSE
   NMDOCT=SPACE(12)
ENDIF
